home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u9.d64 / val.lp.proc < prev    next >
Text File  |  2007-02-28  |  435b  |  21 lines
  1. 9000 //
  2. 9010 // FROM PAGE 287 COMAL HANDBOOK
  3. 9020 // IMPROVED, WILL RETURN 0 IF ANY
  4. 9030 // NON NUMERIC IN PARAMETER.
  5. 9040 //
  6. 9050 FUNC VAL(S$) CLOSED
  7. 9060 L:=LEN(S$)
  8. 9070 FLAG:=0
  9. 9080 FOR I:=1 TO L DO
  10. 9090 IF S$(I)<"0" OR S$(I)>"9" THEN FLAG:=1
  11. 9100 ENDFOR I
  12. 9110 IF FLAG THEN RETURN 0
  13. 9120 ONES:=ORD(S$(L))-ORD("0")
  14. 9130 IF L=1 THEN
  15. 9140 RETURN ONES
  16. 9150 ELSE 
  17. 9160 RETURN ONES+VAL(S$(1:L-1))*10
  18. 9170 ENDIF 
  19. 9180 ENDFUNC VAL
  20. 9190 //
  21.